home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Controls
/
Visual Basic Controls.iso
/
vbcontrol
/
dragonfl
/
aaplayr2.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1998-05-27
|
1KB
|
82 lines
unit Aaplayr2;
{ Delphi 2 Demo program for flic panel component }
{ 27th May 1998 }
interface
uses
SysUtils, Windows, Messages, Classes, Graphics, Controls,
Forms, Dialogs, ExtCtrls, FlicPanel;
type
TForm2 = class(TForm)
FlicPanel1: TFlicPanel;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
protected
{ Protected declarations }
procedure WndProc(var Message: TMessage); override;
end;
var
Form2: TForm2;
implementation
uses
AAPlayr1;
{$R *.DFM}
procedure TForm2.FormCreate(Sender: TObject);
begin
Left := 120;
Top := 120;
Visible := FALSE;
form1.caption := 'The Dragon FlicPanel - Version '+flicpanel1.version;
end;
{ ------------------------------------------------------------------------- }
procedure TForm2.WndProc(var Message: TMessage);
var
retcode: boolean;
begin
with Message do
begin
if Msg = NotifyMessageNum then
begin
if (lParam > 0) and (lParam < 11) then
begin
end;
end
else
begin
if Msg = StopMessageNum then
begin
//Form1.FlicPlayer1.EnabledButtons := [btPlay,btEject,btNext,btPrev,btBack,btStep];
end
else
begin
inherited WndProc(Message);
end;
end;
end;
end;
end.